 Bar ()    ( Graph)
 ----------------------------------
  , 
    .

 :
 Procedure Bar(X1, Y1, X2, Y2 : Integer);

 :
Real, Protected

 :
 Bar   
( ,  ). 
    ,
    SetFillStyle 
SetFillPattern.   
,   Bar3D 
 Depth  .

 :
    .

  :
 Bar3D
 SetFillPattern
 SetFillStyle
 SetLineStyle


 :
 Bar.PAS
